home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 June / 1984-06.d64 / tape data files1 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  368b  |  15 lines
  1. 200 rem           * files written *
  2. 210 rem           * from keyboard *
  3. 215 clr
  4. 220 input"[147]no. of items in file";n
  5. 225 dimw$(n+1)
  6. 230 input"filename";name$:ifname$="+1"then end
  7. 240 print"on the prompt,":print"type each item,":print"followed by return[146]"
  8. 245 open1,1,1,name$
  9. 250 forx=0ton:inputw$(x):print#1,w$(x):ifw$(x)<>"-1"then next
  10. 260 close1:forx=0ton:printw$(x):next
  11. 265 print"hit any key"
  12. 270 geta$:ifa$=""then 270
  13. 280 goto200
  14. 290 end
  15.